home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / GAMMATCH.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  4.7 KB  |  161 lines
  1. 10  'GAMMATCH - Gamma Match Design - 15 SEP 96  rev.27 SEP 96
  2. 20  'Ref. The ARRL Antenna Book, 17th Edition, page 26-20
  3. 30  PRINT "After R. Nelson, WB0IKN, Ham Radio, Jan 1985"
  4. 40  IF EX$=""THEN EX$="EXIT"
  5. 50  CLS:KEY OFF
  6. 60  COLOR 7,0,1
  7. 70  DEF FNCSH(X)=LOG(X+SQR(X^2-1))
  8. 80  PI=3.14159
  9. 90  E$=STRING$(80,32)
  10. 100  U$="#####.###"
  11. 110  UL$=STRING$(80,205)
  12. 120  '
  13. 130  COLOR 15,2
  14. 140  PRINT " GAMMA MATCH";TAB(57);"by George Murphy VE3ERP ";
  15. 150  COLOR 1,0:PRINT STRING$(80,223);
  16. 160  COLOR 7,0
  17. 170  '
  18. 180  '.....start
  19. 190  COL=13:GOSUB 1090:PRINT UL$;  'diagram
  20. 200  GOSUB 1280:PRINT UL$;        'credits
  21. 210  PRINT " Press number in < > to:
  22. 220  PRINT UL$;
  23. 230  PRINT "   < 1 >  RUN program in S.I.(metric) units"
  24. 240  PRINT "   < 2 >  RUN program in U.S.(inches) units"
  25. 250  PRINT
  26. 260  PRINT "   < 0 >  QUIT"
  27. 270  Z$=INKEY$:IF Z$=""THEN 270
  28. 280  IF Z$="0"THEN RUN EX$
  29. 290  IF Z$="1"THEN UM=2.54:UM$="cm ":GOTO 320
  30. 300  IF Z$="2"THEN UM=1   :UM$="in.":GOTO 320
  31. 310  GOTO 270
  32. 320  VIEW PRINT 13 TO 24:CLS:VIEW PRINT:LOCATE 13
  33. 330  GOSUB 1380:PRINT UL$;
  34. 340  COLOR 0,7
  35. 350  PRINT " Is this design for a (m)onopole or (d)ipole?    (m/d)"
  36. 360  COLOR 7,0
  37. 370  DM$=INKEY$
  38. 380  IF DM$="m"THEN M$="MONOPOLE ANTENNA":GOTO 410
  39. 390  IF DM$="d"THEN M$="DIPOLE ANTENNA":GOTO 410
  40. 400  GOTO 370
  41. 410  VIEW PRINT 13 TO 24:CLS:VIEW PRINT:LOCATE 13
  42. 420  LOCATE ,(80-LEN(M$))/2
  43. 430  PRINT M$
  44. 440  '.....data input
  45. 450  VIEW PRINT 14 TO 24:CLS:VIEW PRINT:LOCATE 14
  46. 460  INPUT " ENTER: Frequency...................................(MHz)";F
  47. 470  ZZ=F:GOSUB 1230:PRINT " MHz"
  48. 480  INPUT " ENTER: Feed point resistance......................(ohms)";RA
  49. 490  ZZ=RA:GOSUB 1230:PRINT " -"
  50. 500  LN=CSRLIN
  51. 510  COLOR 0,7
  52. 520  PRINT " Is the reactance of the antenna (c)apacitive or (i)nductive? (c/i) "
  53. 530  COLOR 7,0
  54. 540  Z$=INKEY$:IF Z$=""THEN 540
  55. 550  IF Z$="c"THEN Y$="Capacitive":GOTO 580
  56. 560  IF Z$="i"THEN Y$="Inductive":GOTO 580
  57. 570  GOTO 540
  58. 580  LOCATE LN:PRINT E$;:LOCATE LN
  59. 590  PRINT " ENTER: ";Y$;" reactance (ohms)";
  60. 600  INPUT XA:XA=ABS(XA):IF Z$="c"THEN XA=-XA:J$="- j"ELSE J$="+ j"
  61. 610  XA$=STR$(ABS(XA)):XA$=RIGHT$(XA$,LEN(XA$)-1)
  62. 620  LOCATE LN:PRINT E$;:LOCATE LN
  63. 630  PRINT "        Driven element impedance.........................";
  64. 640  PRINT RA;J$;XA$;" -"
  65. 650  IF DM$="d"THEN RA=RA/2:XA=XA/2
  66. 660  INPUT " ENTER: Feed line impedance........................(ohms)";RO
  67. 670  ZZ=RO:GOSUB 1230:PRINT " -"
  68. 680  PRINT " ENTER: Driven element diameter.....................(";UM$;")";
  69. 690  INPUT ZZ:GOSUB 1230
  70. 700  PRINT " ";UM$:DE=ZZ/UM
  71. 710  PRINT " ENTER: Gamma rod diameter..........................(";UM$;")";
  72. 720  INPUT ZZ:GOSUB 1230
  73. 730  PRINT " ";UM$:DR=ZZ/UM
  74. 740  PRINT " ENTER: Gamma rod/driven element spacing............(";UM$;")";
  75. 750  INPUT ZZ:GOSUB 1230
  76. 760  PRINT " ";UM$:S=ZZ/UM
  77. 770  EQ1=FNCSH((4*S^2-DE^2+DR^2)/(4*S*DR))
  78. 780  EQ2=FNCSH((4*S^2+DE^2-DR^2)/(4*S*DE))
  79. 790  HZ=(1+EQ1/EQ2)^2
  80. 800  ZO=60*FNCSH((4*S^2-DE^2-DR^2)/(2*DE*DR))
  81. 810  T=HZ/ZO
  82. 820  A=((RO*XA)/(HZ*RA-RO))
  83. 830  B=(RO*(RA^2+XA^2))/(HZ*RA-RO)
  84. 840  Q=A+SQR(A^2+B)
  85. 850  XS=HZ*((RO*XA+SQR((RO*XA)^2+RO*(HZ*RA-RO)*(RA^2+XA^2)))/(HZ*RA-RO))
  86. 860  LDRA=ATN(Q*T)
  87. 870  LDR=LDRA*180/PI
  88. 880  E=(RO/RA)*((RA^2+XA^2)/Q)
  89. 890  G=(RO/RA)*XA
  90. 900  CR=10^6/(2*PI*(E+G)*F)
  91. 910  IF DM$="d"THEN RA=RA*2:XA=XA*2
  92. 920  PRINT "        Gamma rod electrical length......................";
  93. 930  PRINT USING U$;LDR;:PRINT " <UNK! {00F8}>"
  94. 940  IN=(948/F)*(LDR/360)*12
  95. 950  PRINT "        Gamma rod physical length......................G=";
  96. 960  PRINT USING U$;IN*UM;:PRINT " ";UM$
  97. 970  PRINT "        Setting of variable capacitor Cvar.............C=";
  98. 980  PRINT USING U$;CR;:PRINT " pF"
  99. 990  GOSUB 1480    'hardcopy
  100. 1000  LOCATE 25,1:PRINT E$;:LOCATE 25,30:COLOR 15,1
  101. 1010  PRINT " Do another?  (y/n) ";
  102. 1020  COLOR 7,0
  103. 1030  Z$=INKEY$:IF Z$=""THEN 1020
  104. 1040  IF Z$="y"THEN 440
  105. 1050  IF Z$="n"THEN CLS:GOTO 130
  106. 1060  GOTO 1030
  107. 1070  END
  108. 1080  '
  109. 1090  'diagram
  110. 1100  COLOR 0,7
  111. 1110  LOCATE ,COL:PRINT "                                                      "
  112. 1120  LOCATE ,COL:PRINT "                           CALLDEFSNGSOUNDSOUND G SOUNDSOUNDDEFDBLCALL                "
  113. 1130  LOCATE ,COL:PRINT " CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND equal SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND equal SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL "
  114. 1140  LOCATE ,COL:PRINT " THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENFNTHENTHENTHENTHENTHENTHENTHENTHENFNTHENTHENTHENTHENTHENTHENTHENTHENTHENCSRLINTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN "
  115. 1150  LOCATE ,COL:PRINT "  driven element SOUND'        CALL Cvar    CSRLINDEFSNGSOUND shorting bar "
  116. 1160  LOCATE ,COL:PRINT "                  shield SOUNDDEFDBLCALLVARPTR<0xB4!>PSETTHENTHENTHENTHENTHENTHENCSRLINTHEN DEFSNGSOUND gamma rod  "
  117. 1170  LOCATE ,COL:PRINT "                           CLSCSRLIN                         "
  118. 1180  LOCATE ,COL:PRINT "                            CSRLIN DEFSNGSOUND 50- or 75- coaxial   "
  119. 1190  LOCATE ,COL:PRINT "                            <0xDF!>    feed line            "
  120. 1200  COLOR 7,0
  121. 1210  RETURN
  122. 1220  '
  123. 1230  '.....format input line
  124. 1240  LOCATE CSRLIN-1:PRINT SPC(7);
  125. 1250  LOCATE CSRLIN,47:PRINT STRING$(11,".");USING U$;ZZ;
  126. 1260  RETURN
  127. 1270  '
  128. 1280  '.....credits
  129. 1290  K=9
  130. 1300  PRINT TAB(K);
  131. 1310  PRINT "This program is derived from a program appearing in the ARRL"
  132. 1320  PRINT TAB(K);
  133. 1330  PRINT "ANTENNA BOOK, 17th Edition, page 26-20, based on an original"
  134. 1340  PRINT TAB(K);
  135. 1350  PRINT "program by R.A.Nelson, WB0IKN, in HAM RADIO, Jan.1985, page 29."
  136. 1360  RETURN
  137. 1370  '
  138. 1380  '.....foreword
  139. 1390  K=7
  140. 1400  PRINT TAB(K);
  141. 1410  PRINT "The Gamma match will match a coaxial cable feed line to a vertical"
  142. 1420  PRINT TAB(K);
  143. 1430  PRINT "monopole (e.g. a shunt-fed tower), or a dipole (e.g. the driven"
  144. 1440  PRINT TAB(K);
  145. 1450  PRINT "of a beam)."
  146. 1460  RETURN
  147. 1470  '
  148. 1480  'HARDCOPY
  149. 1490  GOSUB 1600:LOCATE 25,2:COLOR 14,6
  150. 1500  PRINT " Press 1 to print screen, 2 to print screen & ";
  151. 1510  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  152. 1520  Z$=INKEY$:IF Z$="3"THEN GOSUB 1600:RETURN
  153. 1530  IF Z$="1"OR Z$="2"THEN GOSUB 1600:GOTO 1550
  154. 1540  GOTO 1520
  155. 1550  FOR QX=1 TO 24:FOR QY=1 TO 80
  156. 1560  LPRINT CHR$(SCREEN(QX,QY));
  157. 1570  NEXT QY:NEXT QX
  158. 1580  IF Z$="2"THEN LPRINT CHR$(12)
  159. 1590  GOTO 1490
  160. 1600  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  161.